Function Q_Sample025(myEnglishStr As String) As String
    ']wޥζMicrosoft Internet Controls
    Dim myIE As InternetExplorer
    Dim a As Variant
    'w½ĶURLf(dҪ^Ķ)
    Const myUrl As String = "http://www.excite.co.jp/world/english/"
    Set myIE = New InternetExplorer
    With myIE
        .Navigate myUrl
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        .Document.all("before")(0).Value = myEnglishStr
        .Document.all("start").Click
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        Q_Sample025 = .Document.all("after")(0).Value
        .Quit
    End With
    Set myIE = Nothing                                          '
End Function

Sub Q_Sample025_1()
         MsgBox Q_Sample025("I love you")                       'w^
End Sub
